10 POKE53280,0:POKE53281,0:PRINTCHR$(14)
20 PRINT"[147][158]       [211]HOOTOUT [193]T [198]ORT [193]PACHE":PRINT
30 PRINT"[212]HIS PROGRAM WILL MODIFY YOUR COPY"
40 PRINT"OF '[198]ORT [193]PACHE' TO GIVE YOU [213][206][204][201][205][201][212][197][196]"
50 PRINT"[204][201][214][197][211] AND [200][207][206][207][210][211].  ([195])ONVERT WILL GIVE"
60 PRINT"YOU [213]NLIMITED [204]IVES AND [200]ONORS, AND"
70 PRINT"([210])ESTORE WILL RETURN IT TO [206]ORMAL."
80 PRINT"[201]T'S BEST TO USE A [195][207][208][217] RATHER THAN"
90 PRINT"USING YOUR ORIGINAL [204][207][193][196][211][212][193][210] DISK!"
100 PRINT"[205]AKE SURE THAT THE [215]RITE-[208]ROTECT TAB"
110 PRINT"IS NOT COVERED ON THE DISK!"
130 PRINT"[212]O MAKE THESE CHANGES, [201]NSERT [204]OADSTAR"
140 PRINT"[201]SSUE #130 [211]IDE 3 INTO [196]RIVE #8, THEN"
150 PRINT"[211]ELECT ([195])ONVERT [207]R ([210])ESTORE."
152 PRINT"[193]FTER SELECTING, [196]O [206][207][212] TOUCH THE"
154 PRINT"KEYBOARD OR OPEN THE DISK DRIVE DOOR"
156 PRINT"UNTIL THE WHITE [195]URSOR APPEARS!!!!!!"
157 PRINT"       [211]ELECT ([195]) [207]R ([210]) [206]OW"
160 GETA$:IFA$=""THEN160
165 IFA$="C"THEN180
170 IFA$="R"THEN400
175 GOTO160
180 Q$=CHR$(34):F$="FORT APACHE"
190 PRINT"[147][144]LOAD"Q$F$Q$",8"
200 PRINT"510 IF(C2<>9)AND(F2=1)THENIC=IC-0"
210 PRINT"520 IF((C1=0)OR(C1=7)OR(C1=8))AND(F1=1)THENIC=IC-0:IFIC<0THENIC=0"
220 PRINT"940 POKE53280,0:LF=LF-0"
230 PRINT"945 IF(J=0)AND(C1=1)THENJ=1:POKE53250,PEEK(53250)+14:GOTO920"
250 PRINT"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
260 PRINT"POKE646,1
270 [153]""
280 [129]I[178]631[164]640:[151]I,13:[130]:[151]198,10
290 [162]:[128]
400 Q$[178][199](34):F$[178]"FORT APACHE"
410 [153]"LOADSTOPLOAD"Q$F$Q$",8"
420 [153]"510 IF(C2<>9)AND(F2=1)THENIC=IC-1"
430 [153]"520 IF((C1=0)OR(C1=7)OR(C1=8))AND(F1=1)THENIC=IC-1:IFIC<0THENIC=0"
440 [153]"940 POKE53280,0:LF=LF-1"
450 [153]"945 IF(J=0)AND(C1=1)THENJ=1:POKE53250,PEEK(53250)+14:GOTO920"
460 [153]"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
470 [153]"POKE646,1
480 PRINT""
490 FORI=631TO640:POKEI,13:NEXT:POKE198,10
500 NEW:END